home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Shoicons.pxl < prev    next >
Text File  |  2001-09-14  |  5KB  |  178 lines
  1. Initialize:
  2.     Title$ = "Icons and Cursors in PiXCL 5.0"
  3.     UseCaption(Title$)
  4.     UseCoordinates(PIXEL)
  5.     UseBackGround(TRANSPARENT,192,192,192)
  6.     DrawBackGround
  7.     WaitInput(100)  {let NT and 95 catch up}
  8.     InfoMenu(REMOVE)
  9.     WinLocate(Title$,100,100,520,480,Res){300x220}
  10.  
  11.  
  12.  
  13.     SetMenu("&File",IGNORE,
  14.         "E&xit!",Leave,
  15.         ENDPOPUP,
  16.         "&Show Icons",Show_Icons,
  17.         ENDPOPUP,
  18.         "Show S&hell Icons",Show_Shell_Icons,
  19.         ENDPOPUP,
  20.         "Show &Cursors",Show_Cursors,
  21.         ENDPOPUP,
  22.         "&About",About,
  23.         ENDPOPUP) 
  24.     
  25. Wait_for_Input:
  26.     WaitInput()
  27.  
  28.  
  29. Leave:
  30.     End
  31.  
  32. Show_Icons:
  33.     DrawBackground
  34.     DrawIcon(5,5,0,0,ICON01)
  35.     DrawIcon(40,5,0,0,ICON02)
  36.     DrawIcon(75,5,0,0,ICON03)
  37.     DrawIcon(110,5,0,0,ICON04)
  38.     DrawIcon(145,5,0,0,ICON05)
  39.     DrawIcon(180,5,0,0,ICON06)
  40.     DrawIcon(215,5,0,0,ICON07)
  41.  
  42.     DrawIcon(5,40,0,0,ICON08)
  43.     DrawIcon(40,40,0,0,ICON09)
  44.     DrawIcon(75,40,0,0,ICON10)
  45.     DrawIcon(110,40,0,0,ICON11)
  46.     DrawIcon(145,40,0,0,ICON12)
  47.     DrawIcon(180,40,0,0,ICON13)
  48.     DrawIcon(215,40,0,0,ICON14)
  49.     
  50.     DrawIcon(5,75,0,0,ICON15)
  51.     DrawIcon(40,75,0,0,ICON16)
  52.     DrawIcon(75,75,0,0,ICON17)
  53.     DrawIcon(110,75,0,0,ICON18) 
  54.     DrawIcon(145,75,0,0,ICON19) 
  55.     DrawIcon(180,75,0,0,PXLHISTOGRAM)
  56.     DrawIcon(215,75,0,0,PXLTOOLBAR) 
  57.     
  58.     DrawIcon(5,120,0,0,INFORMATION)
  59.     DrawIcon(40,120,0,0,EXCLAMATION)
  60.     DrawIcon(75,120,0,0,QUESTION)
  61.     DrawIcon(110,120,0,0,STOP)
  62.     DrawIcon(145,120,0,0,APP)
  63.     DrawIcon(180,120,0,0,WINLOGO)
  64.  
  65.     Goto Wait_for_Input
  66.  
  67.  
  68. Show_Shell_Icons:
  69.     DrawBackground
  70.     DrawShellIcon(5,5,0,0,SHICON01)
  71.     DrawShellIcon(40,5,0,0,SHICON02)
  72.     DrawShellIcon(75,5,0,0,SHICON03)
  73.     DrawShellIcon(110,5,0,0,SHICON04)
  74.     DrawShellIcon(145,5,0,0,SHICON05)
  75.     DrawShellIcon(180,5,0,0,SHICON06)
  76.     DrawShellIcon(215,5,0,0,SHICON07)
  77.     DrawShellIcon(250,5,0,0,SHICON08)
  78.     DrawShellIcon(285,5,0,0,SHICON09)
  79.     DrawShellIcon(320,5,0,0,SHICON10)
  80.     DrawShellIcon(355,5,0,0,SHICON11)
  81.  
  82.     DrawShellIcon(5,40,0,0,SHICON12)
  83.     DrawShellIcon(40,40,0,0,SHICON13)
  84.     DrawShellIcon(75,40,0,0,SHICON14)
  85.     DrawShellIcon(110,40,0,0,SHICON15)
  86.     DrawShellIcon(145,40,0,0,SHICON16)
  87.     DrawShellIcon(180,40,0,0,SHICON17)
  88.     DrawShellIcon(215,40,0,0,SHICON18)
  89.     DrawShellIcon(250,40,0,0,SHICON19)
  90.     DrawShellIcon(285,40,0,0,SHICON20)
  91.     DrawShellIcon(320,40,0,0,SHICON21)
  92.     DrawShellIcon(355,40,0,0,SHICON22)
  93.     
  94.     DrawShellIcon(5,75,0,0,SHICON23)
  95.     DrawShellIcon(40,75,0,0,SHICON24)
  96.     DrawShellIcon(75,75,0,0,SHICON25)
  97.     DrawShellIcon(110,75,0,0,SHICON26) 
  98.     DrawShellIcon(145,75,0,0,SHICON27) 
  99.     DrawShellIcon(180,75,0,0,SHICON28) 
  100.     DrawShellIcon(215,75,0,0,SHICON29) 
  101.     DrawShellIcon(250,75,0,0,SHICON30)
  102.     DrawShellIcon(285,75,0,0,SHICON31)
  103.     DrawShellIcon(320,75,0,0,SHICON32)
  104.     DrawShellIcon(355,75,0,0,SHICON33)
  105.  
  106.     DrawShellIcon(5,110,0,0,SHICON34)
  107.     DrawShellIcon(40,110,0,0,SHICON35)
  108.     DrawShellIcon(75,110,0,0,SHICON36)
  109.     DrawShellIcon(110,110,0,0,SHICON37)
  110.     DrawShellIcon(145,110,0,0,SHICON38)
  111.     DrawShellIcon(180,110,0,0,SHICON39)
  112.     DrawShellIcon(215,110,0,0,SHICON40)
  113.     DrawShellIcon(250,110,0,0,SHICON41)
  114.     DrawShellIcon(285,110,0,0,SHICON42)
  115.     DrawShellIcon(320,110,0,0,SHICON43)
  116.     DrawShellIcon(355,110,0,0,SHICON44)
  117.  
  118.     DrawShellIcon(5,145,0,0,SHICON45)
  119.     DrawShellIcon(40,145,0,0,SHICON46)
  120.     DrawShellIcon(75,145,0,0,SHICON47)
  121.     DrawShellIcon(110,145,0,0,SHICON133)
  122.     DrawShellIcon(145,145,0,0,SHICON134)
  123.     DrawShellIcon(180,145,0,0,SHICON135)
  124.     DrawShellIcon(215,145,0,0,SHICON136)
  125.     DrawShellIcon(250,145,0,0,SHICON137)
  126.     DrawShellIcon(285,145,0,0,SHICON138)
  127.     DrawShellIcon(320,145,0,0,SHICON139)
  128.     DrawShellIcon(355,145,0,0,SHICON140)
  129.  
  130.     DrawShellIcon(5,180,0,0,SHICON141)
  131.     DrawShellIcon(40,180,0,0,SHICON142)
  132.     DrawShellIcon(75,180,0,0,SHICON143)
  133.     DrawShellIcon(110,180,0,0,SHICON144)
  134.     DrawShellIcon(145,180,0,0,SHICON145)
  135.     DrawShellIcon(180,180,0,0,SHICON146)
  136.     DrawShellIcon(215,180,0,0,SHICON147)
  137.     DrawShellIcon(250,180,0,0,SHICON148)
  138.     DrawShellIcon(285,180,0,0,SHICON151)
  139.     DrawShellIcon(320,180,0,0,SHICON152)
  140.     DrawShellIcon(355,180,0,0,SHICON153)
  141.  
  142.     DrawShellIcon(5,215,0,0,SHICON154)
  143.     DrawShellIcon(40,215,0,0,SHICON155)
  144.     DrawShellIcon(75,215,0,0,SHICON156)
  145.     DrawShellIcon(110,215,0,0,SHICON157)
  146.     DrawShellIcon(145,215,0,0,SHICON160)
  147.     DrawShellIcon(180,215,0,0,SHICON161)
  148.     DrawShellIcon(215,215,0,0,SHICON165)
  149.     DrawShellIcon(250,215,0,0,SHICON166)
  150.     DrawShellIcon(285,215,0,0,SHICON167)
  151.     DrawShellIcon(320,215,0,0,SHICON168)
  152.     DrawShellIcon(355,215,0,0,SHICON169)
  153.  
  154.     DrawShellIcon(5,250,0,0,SHICON170)
  155.     DrawShellIcon(40,250,0,0,SHICON171)
  156.     DrawShellIcon(75,250,0,0,SHICON173)
  157.  
  158.     Goto Wait_for_Input
  159.  
  160.  
  161. Show_Cursors:
  162.     DrawBackground
  163.     UseCursor(HELP)
  164.     WaitInput(3800)
  165.     UseCursor(ARROW)
  166.     Goto Wait_for_Input
  167.  
  168. About:
  169.     AboutUser("About PiXCL Icons",
  170.     "Sample Windows 95/98/NT program.",
  171. "This program shows the twenty-one embedded icons
  172. available in PiXCL, as well as the six system
  173. icons used with message boxes. Icons can be editted
  174. and replaced as required in PiXCL Runtimes.")
  175.  
  176.     Goto Wait_for_Input
  177.  
  178.